﻿Public Class EntryPanel : Inherits Panel

	Sub New()
		DoubleBuffered = True
		ResizeRedraw = True
	End Sub

	Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
		MyBase.OnPaint(e)
		e.Graphics.Clear(SystemColors.ButtonFace)
		Dim R = ClientRectangle
		R.Width -= 1
		R.Height -= 1
		e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
		e.Graphics.FillRoundRect(Color.White.Brush, R, 10)
		e.Graphics.DrawRoundRect(Color.Black.Opacity(75).Pen, R, 10)
	End Sub

	Protected Overrides Sub OnScroll(se As System.Windows.Forms.ScrollEventArgs)
		MyBase.OnScroll(se)
		Invalidate()
	End Sub

End Class
